CAAKepler_Calculate <-
function(M, e, nIterations){
.Call("CAAKepler_Calculate", M, e, nIterations)
}
